COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	program wolf(output)
C00006 ENDMK
C⊗;
program wolf(output);
var
h,hw,hr,t
:integer;
r,w,dr,dw
:real;
begin
(*Initialize*)
 R:=0.5;
 W:=0.25;
 FOR T:=0 TO 100 DO
        begin
	IF T=50 THEN PAGE;
        (*PRINT A LINE*)
	HW:=ROUND(W* 80);
	HR:=ROUND(R* 80);
	FOR H:=0 TO  80 DO
                begin
		IF H=HW THEN WRITE ('W')     
		ELSE IF H=HR THEN WRITE ('R')
		ELSE IF (H MOD 10)=0 THEN WRITE ('*')
		ELSE IF (T MOD 5)=0 THEN WRITE ('*')
		ELSE WRITE (' ')
        	end;
	WRITELN;
	DR:=R * 0.1 * (1.0 -0.2*  R -2* W);
	DW:=W*  0.1 * (2*R-1.0);
	R:=R+DR;
  	W:=W+DW;
	IF R>1.0 THEN R:= 1.0;
	IF R<0.0 THEN R:= 0.0;
	IF W>1.0 THEN W:= 1.0;
	IF W<0.0 THEN W:= 0.0
	end
end.